home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / demos / misc / tmdmain.dms / tmdmain.adf / Alte.AMOS / Alte.amosSourceCode
Encoding:
AMOS Source Code  |  1994-12-30  |  19.6 KB  |  564 lines

  1. Global TXT$,TXT2$,SCELTA$,FLAG,FLAG$
  2. Default 
  3. Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  4. Procedure SFUMA1[PAL,BA]
  5.    Fade 2,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  6.    Wait 50
  7.    'Fade 2,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  8.    'Wait 50 
  9.    Unpack BA To 0
  10.    Palette $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  11.    Fade 1,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  12.    Wait 30
  13.    If PAL=1
  14.       Fade 1,$0,$FFF,$700,$800,$900,$A00,$B00,$600
  15.       Wait 100
  16.    End If 
  17.    If PAL=2
  18.       Fade 1,$FFF,0,$A00,$A10,$B10,$B30,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  19.       Wait 100
  20.    End If 
  21.    If PAL=3
  22.       Fade 1,0,$A00,$A10,$B10,$B30,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  23.       Wait 200
  24.    End If 
  25.    Fade 1,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF,$FFF
  26.    Wait 50
  27.    Fade 1,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  28.    Wait 30
  29.    Cls 0
  30. End Proc
  31. Procedure TXT
  32.    Shared TXT$
  33.    Get Sprite Palette 
  34.    POS=0
  35.    M=Len(TXT$)
  36.    Do 
  37.       For Y=120 To 178-10 Step 20
  38.          For X=30 To 640-10 Step 10
  39.            If POS=M
  40.                Goto SALTO2
  41.             End If 
  42.             Inc POS
  43.             A$=Mid$(TXT$,POS,1)
  44.             If A$="@" Then Exit 
  45.             If(A$="a") or(A$="A") Then BE=1
  46.             If(A$="b") or(A$="B") Then BE=2
  47.             If(A$="c") or(A$="C") Then BE=3
  48.             If(A$="d") or(A$="D") Then BE=4
  49.             If(A$="e") or(A$="E") Then BE=5
  50.             If(A$="f") or(A$="F") Then BE=6
  51.             If(A$="g") or(A$="G") Then BE=7
  52.             If(A$="h") or(A$="H") Then BE=8
  53.             If(A$="i") or(A$="I") Then BE=9
  54.             If(A$="j") or(A$="J") Then BE=10
  55.             If(A$="k") or(A$="K") Then BE=11
  56.             If(A$="l") or(A$="L") Then BE=12
  57.             If(A$="m") or(A$="M") Then BE=13
  58.             If(A$="n") or(A$="N") Then BE=14
  59.             If(A$="o") or(A$="O") Then BE=15
  60.             If(A$="p") or(A$="P") Then BE=16
  61.             If(A$="q") or(A$="Q") Then BE=17
  62.             If(A$="r") or(A$="R") Then BE=18
  63.             If(A$="s") or(A$="S") Then BE=19
  64.             If(A$="t") or(A$="T") Then BE=20
  65.             If(A$="u") or(A$="U") Then BE=21
  66.             If(A$="v") or(A$="V") Then BE=22
  67.             If(A$="w") or(A$="W") Then BE=23
  68.             If(A$="x") or(A$="X") Then BE=24
  69.             If(A$="y") or(A$="Y") Then BE=25
  70.             If(A$="z") or(A$="Z") Then BE=26
  71.             If A$="." Then BE=27
  72.             If A$=":" Then BE=28
  73.             If A$=";" Then BE=29
  74.             If A$="," Then BE=30
  75.             If A$="!" Then BE=31
  76.             If A$="?" Then BE=32
  77.             If A$="(" Then BE=33
  78.             If A$=")" Then BE=34
  79.             If A$="-" Then BE=35
  80.             If A$="'" Then BE=36
  81.             If A$="`" Then BE=37
  82.             If A$=">" Then BE=38
  83.             If A$="<" Then BE=39
  84.             If A$="\" Then BE=40
  85.             If A$="/" Then BE=41
  86.             If A$="*" Then BE=42
  87.             If A$="%" Then BE=43
  88.             If A$="0" Then BE=44
  89.             If A$="1" Then BE=45
  90.             If A$="2" Then BE=46
  91.             If A$="3" Then BE=47
  92.             If A$="4" Then BE=48
  93.             If A$="5" Then BE=49
  94.             If A$="6" Then BE=50
  95.             If A$="7" Then BE=51
  96.             If A$="8" Then BE=52
  97.             If A$="9" Then BE=53
  98.             If A$="~" Then BE=54
  99.             If A$=" " Then BE=55
  100.             Paste Bob X,Y,BE
  101.             Wait 5
  102.          Next X
  103.       Next Y
  104.       Cls 0
  105.    Loop 
  106.    SALTO2:
  107. End Proc
  108. Procedure PRESENTA
  109.    Screen Hide 0
  110.    CONTROL["TMD_Main:"]
  111.    Load "new-font2.abk",1
  112.    Screen Open 0,640,256,16,Hires
  113.    Flash Off : Curs Off : Cls 0 : Hide On : Led Off 
  114.    Get Sprite Palette 
  115.    Screen Show 0
  116.    TXT$=""
  117.    TXT$="                         Loading...                      "
  118.    TXT
  119.    Load "data/new-presentation.abk"
  120.    Track Load "tmd_main:mod.simphonyofcorrosion",3
  121.    Wait 25
  122.    FLAG$="mod.simphonyofcorrosion"
  123.    Load "ds.abk",12
  124.    Load "pacp.abk",13
  125.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  126.    SFUMA1[3,12]
  127.    SFUMA1[3,13]
  128.    Screen Open 0,640,256,8,Hires
  129.    Flash Off : Curs Off : Cls 0 : Hide On : 
  130.    Track Play 3
  131.    Wait 100
  132.    TXT$="In a pacefull town in the province of Torino in Italy... "
  133.    TXT
  134.    Wait 50
  135.    SFUMA1[2,5]
  136.    Wait 50
  137.    Screen Open 0,640,256,8,Hires
  138.    Flash Off : Curs Off : Cls 0 : Hide On 
  139.    TXT$=""
  140.    TXT$="             ...In the Degeneration's year...              "
  141.    TXT
  142.    Wait 50
  143.    SFUMA1[2,6]
  144.    Wait 50
  145.    Screen Open 0,640,256,8,Hires
  146.    Flash Off : Curs Off : Cls 0 : Hide On 
  147.    TXT$=""
  148.    TXT$="            ...A terrible duel is becoming...              "
  149.    TXT
  150.    Wait 50
  151.    SFUMA1[2,7]
  152.    Wait 50
  153.    Screen Open 0,640,256,8,Hires
  154.    Flash Off : Curs Off : Cls 0 : Hide On 
  155.    TXT$=""
  156.    TXT$="          ...The two heroes of this duel are...            "
  157.    TXT
  158.    Wait 50
  159.    SFUMA1[2,8]
  160.    Wait 50
  161.    Screen Open 0,640,256,8,Hires
  162.    Flash Off : Curs Off : Cls 0 : Hide On : Led Off 
  163.    TXT$=""
  164.    TXT$="      ...A founder of degeneration's team , and...          "
  165.    TXT
  166.    Wait 50
  167.    SFUMA1[2,9]
  168.    Wait 50
  169.    Screen Open 0,640,256,8,Hires
  170.    Flash Off : Curs Off : Cls 0 : Hide On 
  171.    TXT$=""
  172.    TXT$="           ...the new musician of the team...               "
  173.    TXT
  174.    Wait 50
  175.    SFUMA1[2,10]
  176.    SFUMA1[2,11]
  177.    Wait 50
  178.    For I=4 To 13
  179.       Erase I
  180.    Next I
  181. End Proc
  182. Procedure SCROL[SCRN,S,E,STP,H]
  183.    For I=S To E Step STP
  184.       Screen Display SCRN,128,I,320,H
  185.       Wait Vbl 
  186.    Next I
  187. End Proc
  188. Procedure SETTXT[TX$]
  189.    If TX$="Corro"
  190.       TXT2$="Eccoci qua! Finalmente sono riuscito a finire@questo demo! Ci sono voluti 4 mesi ma alla   @fine c'e` lo fatta. Voi vi starete chiedendo @"
  191.       TXT2$=TXT2$+"perche' tutto questo tempo e io vi rispondo  @che ci sono stati innumerovoli incovenienti  @a partire dagli impegni scolastici, ai      @"
  192.       TXT2$=TXT2$+"piccoli litigi all'interno del gruppo con    @detio poi risolti. Ma adesso illustriamo     @brevemente questo demo.                      @"
  193.       TXT2$=TXT2$+"Prima di tutto il codice e' stato scritto con@l'amos 1.36 interamente dal sottoscritto     @perche' il coder ufficiale e' alle prese con @"
  194.       TXT2$=TXT2$+"l' universita' e non ha avuto tempo. La      @grafica e` stata disegnata, sempre da me, con@il deluxe paint iv. Abbiamo un grafico da poco@"
  195.       TXT2$=TXT2$+"tempo e questo demo era gia' stato sviluppato@cosi` non ho voluto  rimandare oltre l' uscita @Per quanto riguarda le musiche io e detio@"
  196.       TXT2$=TXT2$+"abbiamo utilizzato il protracker 2.3a. @Detto questo voglio sottolineare come questo @sia un duello vero, percio' noi aspettiamo le@"
  197.       TXT2$=TXT2$+"vostre risposte che decreteranno il vincitore@(Vi prego,scrivete! cosi detio la smettera` di @rompere le palle). Comunque trattandosi di un@"
  198.       TXT2$=TXT2$+"duello ci siamo cimentati in diversi stili di@musica, purtroppo per me, anche quella techno.@Questo corto testo sta per finire percio'   @"
  199.       TXT2$=TXT2$+"passo subito ai saluti.            @@My Greetings to:            @Voodoo Chile Of Degeneration                @@"
  200.       TXT2$=TXT2$+"Gas (the new member of team)                @@Brian Jones and Jens Puchert                @@Sidewinder Of Megawatts                     @@"
  201.       TXT2$=TXT2$+"Moby Of Sanity                              @@and all the people I have forgotten        @@"
  202.    Else 
  203.       If TX$="Detio"
  204.          TXT2$="Salve gente!sono Max soprannominato Detio ! @Sicuramente non ve ne freghera' un cazzo ma @"
  205.          TXT2$=TXT2$+"vorrei fare delle considerazioni su tale    @soprannome. Detio significa, meglio dire,   @"
  206.          TXT2$=TXT2$+"Detio rappresenta un qualcosa di gassoso che@fluttua, che gallegia a mezz'aria. tale     @"
  207.          TXT2$=TXT2$+"assembramento di suoni non significa essere @vivente ne'tanto meno essere morente, solo  @"
  208.          TXT2$=TXT2$+"essere perdente davanti a tutto e tutti, il @fantozzi dell'era multimediale!             @"
  209.          TXT2$=TXT2$+"E tu che stai leggendo, chi sei?            @Tu sei un marziano sceso sulla terra perche'@"
  210.          TXT2$=TXT2$+"hai finito le puntine da disegno e lo scotch@dalle tue parti costa 2 pinco ( sono tanti  @"
  211.          TXT2$=TXT2$+"soldi)...                                   @Aspetta , tu sei una forma rara di essere   @"
  212.          TXT2$=TXT2$+"che vive sul Vesuvio,  ti chiami VESUVIANO! @Hai un occhio solo e ti chiamano polifemo,  @"
  213.          TXT2$=TXT2$+"ma tu non li ascolti e te ne vai in giro    @come il passero solitario!                  @"
  214.          TXT2$=TXT2$+"Cio' che scrivero' e'il testo di una canzone@vecchissima e fa'...                        @"
  215.          TXT2$=TXT2$+"Non conosco le parole di quella cosa        @chiamata canzone e che fa'...               @"
  216.          TXT2$=TXT2$+"BRUN ZUMZUUM BRUN BRUN ZUMZUUM              @non ci sto'con la testa devo andare nella   @"
  217.          TXT2$=TXT2$+"foresta ... Ha Ha ...                       @BRUN ZUMZUUM BRUN BRUN ZUMZUUM              @"
  218.          TXT2$=TXT2$+"BRUN ZUMZUUM BRUN BRUN ZUMZUUM              @Continuiamo a cantare finche'la testa non   @"
  219.          TXT2$=TXT2$+"fara'male...                                @BRUN ZUMZUUM BRUN BRUN ZUMZUUM              @"
  220.          TXT2$=TXT2$+"                                            @Questo testo sta per finire mi raccomando   @"
  221.          TXT2$=TXT2$+"(sono diventato una lettera) non vi         @affrancate (minchia che battuta) e chiudete @"
  222.          TXT2$=TXT2$+"la busta!                                   @CHI HA DETTO  ~E QUELLI DI BUSTARSIZIO?`    @            @@@@"
  223.       Else 
  224.          If TX$="Dege"
  225.             TXT2$="Welcome to the music duel of the century!@This duel, between Corrosion and Detio is@necessary to establish who is the best   @"
  226.             TXT2$=TXT2$+"musician Of the our team.But how makes@it possible? Simple, you must write to us  @your preference and the reason for this vote.@"
  227.             TXT2$=TXT2$+"Then we write another demo with the response.@But now talk about this demo written by @Corrosion that has drawn all the screen @"
  228.             TXT2$=TXT2$+"(except the fonts of this text drawn by Detio)@In this collection there are different styles @of music such as Metal, techno, ballad, rap   @"
  229.             TXT2$=TXT2$+"piano and blues. So we believe to satisfy all @the people.@Moreover we have decided to write our personal@"
  230.             TXT2$=TXT2$+"text on our mother language (Italian) because@the our english is rather poor.@I want underline the fact that the sample that@"
  231.             TXT2$=TXT2$+"we used are all ripped from the songs that go @around the world.In fact we don't have the @hardware to sample the instrument.@"
  232.             TXT2$=TXT2$+"Now go to the list of greetings:@@Voodoo Chile Of Degeneration@@Gas@@"
  233.             TXT2$=TXT2$+"Brian Jones and Jens Puchert@@Sidewinder Of Megawatts@@Moby Of Sanity@@"
  234.             TXT2$=TXT2$+"Nuke of Lemon @@and all the people we have forgotten!@@Now the Corrosion's address              @"
  235.             TXT2$=TXT2$+"(Contact me to vote or for any other reason):@@Patrizio Casalengo  (alias Corrosion)        @Via Volpiano 60                         @"
  236.             TXT2$=TXT2$+"10032 Brandizzo (to)@Italy@                                    @If you want contact Detio write to:@@Massimiliano Lavarone (alias Detio)    @Via vittime di bologna 6             @"
  237.             TXT2$=TXT2$+"10032 brandizzo (to)@Italy@                                    @In the end the address of the official@coder of the Degeneration software:@@Fabrizio Nunnari (alias Voodoo Chile)      @"
  238.             TXT2$=TXT2$+"Via vittime di bologna 4           @10032 brandizzo (to)@Italy                                 @@P.S>: the detio's song is entirely remixed by@Corrosion that have re-written the riff of drums@@"
  239.          End If 
  240.       End If 
  241.    End If 
  242. End Proc
  243. Procedure CONTROL[D$]
  244.    RESTART:
  245.    FLAG=Exist(D$)
  246.    If FLAG=True
  247.       Dir$=D$
  248.    End If 
  249.    If FLAG=False
  250.       Hide On 
  251.       Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  252.       Wait 25
  253.       Screen Open 1,640,24,2,Hires
  254.       Curs Off : Flash Off : Screen 1
  255.       Locate 3,0
  256.       Centre "Insert "+D$+" in any drive and press LMB"
  257.       Repeat : Until Mouse Click=1
  258.       Screen Close 1
  259.       Screen 0
  260.       Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  261.       Wait 25
  262.       Goto RESTART
  263.    End If 
  264. End Proc
  265. Procedure LMUS[MUS$]
  266.    If MUS$=FLAG$ Then Goto JUMP
  267.    CONTROL["TMD_data1:"]
  268.    F$=Dir$+MUS$
  269.    Erase 3
  270.    Track Load F$,3
  271.    Track Play 3
  272.    Track Loop On 
  273.    JUMP:
  274. End Proc
  275. Procedure LMUS2[MUS$]
  276.    If MUS$=FLAG$ Then Goto JUMP
  277.    CONTROL["TMD_Data2:"]
  278.    F$=Dir$+MUS$
  279.    Erase 3
  280.    Track Load F$,3
  281.    Track Play 3
  282.    Track Loop On 
  283.    JUMP:
  284. End Proc
  285. Procedure LMUS3[MUS$]
  286.    If MUS$=FLAG$ Then Goto JUMP
  287.    CONTROL["TMD_main:"]
  288.    F$=Dir$+MUS$
  289.    Erase 3
  290.    Track Load F$,3
  291.    Track Play 3
  292.    Track Loop On 
  293.    JUMP:
  294. End Proc
  295. Procedure MAINMENU
  296.    CONTROL["tmd_main:"]
  297.    Load "new-font.abk"
  298.    Load "data/degexyz.abk",5
  299.    Load "data/corroxyz.abk",6
  300.    Load "data/detixyz.abk",7
  301.    Load "data/anaxyz.abk",8
  302.    Hide On 
  303.    Screen Open 0,640,256,16,Hires
  304.    Screen Hide 0
  305.    Unpack 5 To 0
  306.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  307.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  308.    Wait 25
  309.    Do 
  310.       Repeat 
  311.          K$=Inkey$
  312.       Until K$<>""
  313.       K=Asc(K$)
  314.       If K=49
  315.          MENUCORRO
  316.       End If 
  317.       If K=50
  318.          MENUDETIO
  319.       End If 
  320.    Loop 
  321. End Proc
  322. Procedure MENUCORRO
  323.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  324.    Wait 25
  325.    Screen Hide 0
  326.    Unpack 6 To 0
  327.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  328.    Screen Show 0
  329.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  330.    Wait 25
  331.    Do 
  332.       Repeat 
  333.          K$=Inkey$
  334.       Until K$<>""
  335.       K=Asc(K$)
  336.       If K=49
  337.          LMUS["mod.good_nightmare!"]
  338.          FLAG$="mod.good_nightmare!"
  339.       End If 
  340.       If K=50
  341.          LMUS["mod.Bad_words"]
  342.          FLAG$="mod.Bad_words"
  343.       End If 
  344.       If K=51
  345.          LMUS["mod.Tribal devil"]
  346.          FLAG$="mod.Tribal devil"
  347.       End If 
  348.       If K=52
  349.          LMUS["mod.sound of revolution"]
  350.          FLAG$="mod.sound of revolution"
  351.       End If 
  352.       If K=53
  353.          LMUS["mod.ripper"]
  354.          FLAG$="mod.ripper"
  355.       End If 
  356.       If K=54
  357.          LMUS3["mod.simphonyofcorrosion"]
  358.          FLAG$="mod.simphonyofcorrosion"
  359.       End If 
  360.       If K=55
  361.          LMUS["mod.fuckme"]
  362.          FLAG$="mod.fuckme"
  363.       End If 
  364.       If K=56
  365.          LMUS3["mod.welcome"]
  366.          FLAG$="mod.welcome"
  367.       End If 
  368.       If K=99
  369.          TXT2["Corro",1]
  370.       End If 
  371.       If K=100
  372.          TXT2["Dege",1]
  373.       End If 
  374.       If K=101
  375.          Goto EX
  376.       End If 
  377.    Loop 
  378.    EX:
  379.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  380.    Wait 25
  381.    Screen Hide 0
  382.    Unpack 5 To 0
  383.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  384.    Screen Show 0
  385.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  386.    Wait 25
  387. End Proc
  388. Procedure MENUDETIO
  389.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  390.    Wait 25
  391.    Screen Hide 0
  392.    Unpack 7 To 0
  393.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  394.    Screen Show 0
  395.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  396.    Wait 25
  397.    Do 
  398.       Repeat 
  399.          K$=Inkey$
  400.       Until K$<>""
  401.       K=Asc(K$)
  402.       If K=49
  403.          LMUS2["mod.acoustic dream"]
  404.          FLAG$="mod.acoustic dream"
  405.       End If 
  406.       If K=50
  407.          LMUS2["mod.famished wolf"]
  408.          FLAG$="mod.famished wolf"
  409.       End If 
  410.       If K=51
  411.          LMUS2["mod.great"]
  412.          FLAG$="mod.great"
  413.       End If 
  414.       If K=52
  415.          LMUS2["mod.max super space"]
  416.          FLAG$="mod.max super space"
  417.       End If 
  418.       If K=53
  419.          LMUS2["mod.metalmix"]
  420.          FLAG$="mod.metalmix"
  421.       End If 
  422.       If K=54
  423.          LMUS2["mod.three bis"]
  424.          FLAG$="mod.three bis"
  425.       End If 
  426.       If K=55
  427.          LMUS2["mod.cypress pool"]
  428.          FLAG$="mod.cypress pool"
  429.       End If 
  430.       If K=56
  431.          LMUS3["mod.i know this"]
  432.          FLAG$="mod.i know this"
  433.       End If 
  434.       If K=97
  435.          TXT2["Detio",2]
  436.       End If 
  437.       If K=100
  438.          TXT2["Dege",2]
  439.       End If 
  440.       If K=101
  441.          Goto EX
  442.       End If 
  443.    Loop 
  444.    EX:
  445.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  446.    Wait 25
  447.    Screen Hide 0
  448.    Unpack 5 To 0
  449.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  450.    Screen Show 0
  451.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  452.    Wait 25
  453. End Proc
  454. Procedure TXT2[ABC$,G]
  455.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  456.    Wait 25
  457.    SETTXT[ABC$]
  458.    Screen Hide 0
  459.    Unpack 8 To 0
  460.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  461.    Screen Show 0
  462.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  463.    Wait 25
  464.    POS=0
  465.    M=Len(TXT2$)
  466.    Do 
  467.       For Y=20 To 250-30 Step 10
  468.          For X=80 To 640-80 Step 10
  469.             K$=Inkey$
  470.             If K$<>""
  471.                Goto SALTO2
  472.             End If 
  473.             Inc POS
  474.             A$=Mid$(TXT2$,POS,1)
  475.             If A$="@"
  476.                If POS=M
  477.                   POS=0
  478.                End If 
  479.                Exit 
  480.             End If 
  481.             If(A$="a") or(A$="A") Then BE=1
  482.             If(A$="b") or(A$="B") Then BE=2
  483.             If(A$="c") or(A$="C") Then BE=3
  484.             If(A$="d") or(A$="D") Then BE=4
  485.             If(A$="e") or(A$="E") Then BE=5
  486.             If(A$="f") or(A$="F") Then BE=6
  487.             If(A$="g") or(A$="G") Then BE=7
  488.             If(A$="h") or(A$="H") Then BE=8
  489.             If(A$="i") or(A$="I") Then BE=9
  490.             If(A$="j") or(A$="J") Then BE=10
  491.             If(A$="k") or(A$="K") Then BE=11
  492.             If(A$="l") or(A$="L") Then BE=12
  493.             If(A$="m") or(A$="M") Then BE=13
  494.             If(A$="n") or(A$="N") Then BE=14
  495.             If(A$="o") or(A$="O") Then BE=15
  496.             If(A$="p") or(A$="P") Then BE=16
  497.             If(A$="q") or(A$="Q") Then BE=17
  498.             If(A$="r") or(A$="R") Then BE=18
  499.             If(A$="s") or(A$="S") Then BE=19
  500.             If(A$="t") or(A$="T") Then BE=20
  501.             If(A$="u") or(A$="U") Then BE=21
  502.             If(A$="v") or(A$="V") Then BE=22
  503.             If(A$="w") or(A$="W") Then BE=23
  504.             If(A$="x") or(A$="X") Then BE=24
  505.             If(A$="y") or(A$="Y") Then BE=25
  506.             If(A$="z") or(A$="Z") Then BE=26
  507.             If A$="." Then BE=27
  508.             If A$=":" Then BE=28
  509.             If A$=";" Then BE=29
  510.             If A$="," Then BE=30
  511.             If A$="!" Then BE=31
  512.             If A$="?" Then BE=32
  513.             If A$="(" Then BE=33
  514.             If A$=")" Then BE=34
  515.             If A$="-" Then BE=35
  516.             If A$="'" Then BE=36
  517.             If A$="`" Then BE=37
  518.             If A$=">" Then BE=38
  519.             If A$="<" Then BE=39
  520.             If A$="\" Then BE=40
  521.             If A$="/" Then BE=41
  522.             If A$="*" Then BE=42
  523.             If A$="%" Then BE=43
  524.             If A$="0" Then BE=44
  525.             If A$="1" Then BE=45
  526.             If A$="2" Then BE=46
  527.             If A$="3" Then BE=47
  528.             If A$="4" Then BE=48
  529.             If A$="5" Then BE=49
  530.             If A$="6" Then BE=50
  531.             If A$="7" Then BE=51
  532.             If A$="8" Then BE=52
  533.             If A$="9" Then BE=53
  534.             If A$="~" Then BE=54
  535.             If A$=" " Then BE=55
  536.             Paste Bob X,Y,BE
  537.             Wait 6
  538.             K$=""
  539.          Next X
  540.       Next Y
  541.       Wait 75
  542.       Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  543.       Wait 25
  544.       Screen Hide 0
  545.       Unpack 8 To 0
  546.       Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  547.       Screen Show 0
  548.       Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  549.       Wait 25
  550.    Loop 
  551.    SALTO2:
  552.    If G=1 Then BA=6 Else BA=7
  553.    Fade 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  554.    Wait 25
  555.    Screen Hide 0
  556.    Unpack BA To 0
  557.    Hide On 
  558.    Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  559.    Screen Show 0
  560.    Fade 1,0,$FFF,$A00,$A10,$B10,$B30,$B30,$C40,$C50,$D70,$D80,$D90,$EA0,$EC0,$FD0,$FF0
  561.    Wait 25
  562. End Proc
  563. PRESENTA
  564. MAINMENU